* lisp/info-xref.el (info-xref-docstrings): Also skip directories.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45096e52ec01cce9284d0eee9be46ff76948d97a..c73b1d6a372971b915766af24fc514b79353e125 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-01-16  Glenn Morris  <rgm@gnu.org>
 
        * info-xref.el (info-xref-docstrings): Replace cl function.
+       Also skip directories.
 
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 

diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index cdeba932eda7b2d1681700cfc1772a48e0f83ce9..e317b10bcd69654bea2da801a597bd8300db946e 100644 (file)
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -493,6 +493,7 @@ the sources handy."
      (setq filename-list
            (dolist (file filename-list (nreverse newlist))
              (or (info-xref-lock-file-p file)
+                 (file-directory-p file)
                  (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))